MacWorld UK 2000 March/MW_UK_2000_03.iso/Shareware World/Utilities/Text Processing/Alpha/Tcl/SystemCode/alphaVersionInfo.tcl

Text File | 1999-12-14 | 253 b | 8 lines | [TEXT/ALFA]

set alpha::version [lindex [split [string trimleft [version] "Alpha Version"] ,] 0]
# set AlphaTcl version (the version of this library of .tcl files)
set alpha::tclversion 7.2.2
if {![info exists alpha::platform]} {
    set alpha::platform "alpha"
}